5 REM COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC. ALL RIGHTS RESERVED.
6 HOME : PRINT "COPYRIGHT 1987": PRINT "COMPUTE! PUBLICATIONS, INC.": PRINT "ALL RIGHTS RESERVED.": FOR TT = 1 TO 1500: NEXT TT: HIMEM:24320
7 PRINT CHR$(4)"PR#3": PRINT : HGR3: HCOLOR=3:DOUBLE: SETPTN -1: HOME: VTAB 21
8 INVERSE: PRINT "EXTENDED 'CHROME' DEMO": NORMAL
9 PRINT "DEMONSTRATES /FILL/,/AREA/,HCOLOR=4 USED WITH /HPLOT/, EXTENDED /ELLIPSE/
10 PRINT "/LINE/, AND FINALLY THE SCREEN R/W AND SHIFT FUNCTIONS...
15 FOR Y = 1 TO 100
20 LINE Y,Y + Y,Y:NEXT
25 HCOLOR= 2
30 AREA 75,40,450,150
35 HCOLOR=1: HPLOT 0,159 TO 559,0
40 COLOR=2:HCOLOR=2
45 ELLIPSE 250,60,35 AT 280,90
49 HCOLOR =1
50 COLOR=3: ELLIPSE 90,40,63 AT 390,100
65 INPUT "PRESS <RETURN>";A$
100 HOME
105 VTAB 22
110 PRINT "THE SCREEN READ/WRITE MODES OF /LINE/ AND /AREA/ CAN BE USED TO OPEN AND CLOSE WINDOWS EASILY..."
120 REM
130 HCOLOR=4
140 AREA 100,30,300,130 AT 24576
150 REM CLEAR WINDOW AND DRAW OUTLINE
160 HCOLOR=1
170 AREA 100,30,300,130
180 HCOLOR=0
190 HPLOT 100,30 TO 300,30 TO 300,130 TO 100,130 TO 100,30
200 REM PRINT O-K USING WITHOUT SHAPES
210 ELLIPSE 20,20,15 AT 175,80
215 ELLIPSE 19,19,15 AT 175,80
220 HPLOT 205,60 TO 205,100
225 HPLOT 204,60 TO 204,100
230 HPLOT 205,80 TO 245,60
235 HPLOT 204,80 TO 244,60
240 HPLOT 205,80 TO 245,100
245 HPLOT 204,80 TO 244,100
250 INPUT "HIT ANY KEY";A$
255 PRINT "AND WITH /FILL/ YOU CAN DO MONOCHROME AND PATTERNED FILL-INS
260 FILL 150,70,32000,1
280 INPUT "HIT ANY KEY";A$: FOR X = 2100 TO 2131: READ A: POKE X,A: NEXT
285 PRINT "AND EVEN /REFILL/ WHAT WAS FILLED WITH THE CURRENT PATTERN
290 SETPTN 2100: REFILL
300 REM RESTORE BACKGROUND
310 HCOLOR=5
320 AREA 100,30,300,130 AT 24576
400 DATA 64,64,64,64
410 DATA 32,32,32,32
420 DATA 16,16,16,16
430 DATA 8,8,8,8
440 DATA 4,4,4,4
450 DATA 2,2,2,2
460 DATA 1,1,1,1
470 DATA 1,1,1,1
500 HOME: VTAB 21
510 PRINT "AND FINALLY /ELLIPSE/ CAN BE USED TO MAKE UNUSUAL WINDOWS
520 COLOR=4
560 ELLIPSE 200,50,48 AT 280,76 AT 24576
570 HCOLOR= 0
580 COLOR= 1
590 ELLIPSE 200,50,63
591 HCOLOR= 0
592 REM DRAW AN "X"
593 HPLOT 0,50 TO 559,109
594 HPLOT 0,109 TO 559,50
600 INPUT "HIT ANY KEY";A$
620 COLOR= 5
630 ELLIPSE 200,50,48 AT 280,76 AT 24576
